1 PRINTCHR$(14)"[147]"TAB(13)"[196]ESKPACK [195]HANGE"TAB(53)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2 POKE53280,6:POKE53281,6:PRINTTAB(18)"VON"TAB(49)"[200]ANS-[202]UERGEN [218]IETHMANN"
3 PRINTTAB(160)"[194]ITTE LEGEN [211]IE DIE [199][197][207][211] 2.0"
4 PRINT"[193]PPLIKATIONSDISKETTE IN DAS [204]AUFWERK"TAB(80)"UND DRUECKEN EINE [212]ASTE"
5 WAIT203,64,64:OPEN1,8,15,"I":OPEN2,8,2,"#":PRINT#1,"U1"2;0;18;0
6 PRINT#1,"B-P";2;190:GET#2,A$:A=ASC(A$+CHR$(0)):PRINT#1,"B-P";2;191
7 GET#2,B$:B=ASC(B$+CHR$(0)):CLOSE2
8 POKE53280,0:POKE53281,0:PRINT"[145][145][145][196]ESKPACKDISKETTE IN DAS [204]AUFWERK     "
9 WAIT203,64,64:OPEN2,8,2,"#":PRINT#1,"U1:"2;0;18;0
10 PRINT#1,"M-W"CHR$(190)CHR$(05)CHR$(1)CHR$(A):S=10:U=88:GOSUB25
11 PRINT#1,"M-W"CHR$(191)CHR$(05)CHR$(1)CHR$(B):PRINT#1,"U2"2;0;18;0:CLOSE2
12 POKE53280,8:POKE53281,8:PRINT"[145][211]YSTEMDISKETTE IN DAS [204]AUFWERK  "
13 WAIT203,64,64:OPEN2,8,2,"#":PRINT#1,"U1"2;0;20;5
14 PRINT#1,"B-P";2;197:GET#2,A$:A=ASC(A$+CHR$(0))
15 PRINT#1,"B-P";2;198:GET#2,B$:B=ASC(B$+CHR$(0)):CLOSE2
16 POKE53280,9:POKE53281,9:PRINT"[145][196]ESKPACKDISKETTE IN DAS [204]AUFWERK"
17 WAIT203,64,64:OPEN2,8,2,"#":PRINT#1,"U1:"2;0;1;16
18 PRINT#1,"M-W"CHR$(65)CHR$(05)CHR$(1)CHR$(A):S=5:U=99:GOSUB25
19 PRINT#1,"M-W"CHR$(66)CHR$(05)CHR$(1)CHR$(B):PRINT#1,"U2"2;0;1;16
20 PRINT#1,"U1:"2;0;3;3:PRINT#1,"M-W"CHR$(86)CHR$(05)CHR$(1)CHR$(A)
21 PRINT#1,"M-W"CHR$(87)CHR$(05)CHR$(1)CHR$(B):PRINT#1,"U2"2;0;3;3
22 PRINT#1,"U1:"2;0;8;5:PRINT#1,"M-W"CHR$(252)CHR$(05)CHR$(1)CHR$(A)
23 PRINT#1,"M-W"CHR$(253)CHR$(05)CHR$(1)CHR$(B):PRINT#1,"U2"2;0;8;5
24 CLOSE2:CLOSE1:PRINT"[196]ESKPACK AN [211]YSTEM ANGEPASST":END
25 PRINT#1,"B-P";2;U:GET#2,T$:T=ASC(T$+CHR$(0)):IFT<>STHEN27
26 RETURN
27 PRINT"[147][198]ALSCHE [196]ISKETTE, BRECHE [198]ORGANG AB,"TAB(80)"UM [211]CHADEN ZU VERMEIDEN!"
28 CLOSE2:CLOSE1:END